home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / oolibraries.e < prev    next >
Text File  |  1995-12-22  |  358b  |  21 lines
  1. OPT MODULE
  2.  
  3. EXPORT OBJECT library
  4.     baseptr:LONG
  5. ENDOBJECT
  6.  
  7. EXPORT PROC base() OF library IS self.baseptr
  8. EXPORT PROC new(name,ver=39) OF library
  9.     DEF base=0
  10.     base:=OpenLibrary(name,ver)
  11.     IF (base<>0)
  12.         self.baseptr:=base
  13.     ELSE
  14.         Raise("LIB")
  15.     ENDIF
  16. ENDPROC self.base()
  17.  
  18. EXPORT PROC end() OF library
  19.     IF (self.baseptr) THEN CloseLibrary(self.baseptr)
  20. ENDPROC
  21.